home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue66 / XMLXSLT / XSLT / Unit1.dfm < prev    next >
Encoding:
Text File  |  2000-12-13  |  3.5 KB  |  151 lines
  1. object Form1: TForm1
  2.   Left = 192
  3.   Top = 119
  4.   Width = 538
  5.   Height = 572
  6.   Caption = 'Form1'
  7.   Color = clBtnFace
  8.   Font.Charset = DEFAULT_CHARSET
  9.   Font.Color = clWindowText
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   OldCreateOrder = False
  14.   PixelsPerInch = 96
  15.   TextHeight = 13
  16.   object Button1: TButton
  17.     Left = 240
  18.     Top = 72
  19.     Width = 225
  20.     Height = 25
  21.     Caption = 'UK Employees'
  22.     Enabled = False
  23.     TabOrder = 0
  24.     OnClick = Button1Click
  25.   end
  26.   object Button2: TButton
  27.     Left = 8
  28.     Top = 72
  29.     Width = 225
  30.     Height = 25
  31.     Caption = 'US Employees'
  32.     Enabled = False
  33.     TabOrder = 1
  34.     OnClick = Button2Click
  35.   end
  36.   object btnCreateXML: TButton
  37.     Left = 8
  38.     Top = 8
  39.     Width = 113
  40.     Height = 25
  41.     Caption = 'Employees -> XML'
  42.     TabOrder = 2
  43.     OnClick = btnCreateXMLClick
  44.   end
  45.   object Button4: TButton
  46.     Left = 240
  47.     Top = 8
  48.     Width = 225
  49.     Height = 25
  50.     Caption = 'UK Employees Ordered by Surname (Asc)'
  51.     Enabled = False
  52.     TabOrder = 3
  53.     OnClick = Button4Click
  54.   end
  55.   object Button5: TButton
  56.     Left = 8
  57.     Top = 40
  58.     Width = 225
  59.     Height = 25
  60.     Caption = 'US Employees in ascending salary order'
  61.     Enabled = False
  62.     TabOrder = 4
  63.     OnClick = Button5Click
  64.   end
  65.   object mXML: TMemo
  66.     Left = 8
  67.     Top = 399
  68.     Width = 457
  69.     Height = 129
  70.     Font.Charset = DEFAULT_CHARSET
  71.     Font.Color = clWindowText
  72.     Font.Height = -13
  73.     Font.Name = 'MS Sans Serif'
  74.     Font.Style = []
  75.     ParentFont = False
  76.     ScrollBars = ssVertical
  77.     TabOrder = 5
  78.   end
  79.   object Panel1: TPanel
  80.     Left = 10
  81.     Top = 109
  82.     Width = 455
  83.     Height = 281
  84.     Caption = 'Panel1'
  85.     TabOrder = 6
  86.     object wbXML: TWebBrowser
  87.       Left = 1
  88.       Top = 1
  89.       Width = 453
  90.       Height = 279
  91.       Align = alClient
  92.       TabOrder = 0
  93.       ControlData = {
  94.         4C000000D22E0000D61C00000000000000000000000000000000000000000000
  95.         000000004C000000000000000000000001000000E0D057007335CF11AE690800
  96.         2B2E126208000000000000004C0000000114020000000000C000000000000046
  97.         8000000000000000000000000000000000000000000000000000000000000000
  98.         00000000000000000100000000000000000000000000000000000000}
  99.     end
  100.   end
  101.   object Button6: TButton
  102.     Left = 240
  103.     Top = 40
  104.     Width = 225
  105.     Height = 25
  106.     Caption = 'UK Employees Ordered by Surname (Desc)'
  107.     Enabled = False
  108.     TabOrder = 7
  109.     OnClick = Button6Click
  110.   end
  111.   object tblEmployee: TTable
  112.     DatabaseName = 'DBDEMOS'
  113.     TableName = 'employee.db'
  114.     Left = 480
  115.     Top = 16
  116.     object tblEmployeeEmpNo: TIntegerField
  117.       CustomConstraint = 'Value > 0'
  118.       ConstraintErrorMessage = 'EmpNo cannot be 0 or negative'
  119.       FieldName = 'EmpNo'
  120.       DisplayFormat = '0'
  121.       MaxValue = 9999
  122.       MinValue = 1
  123.     end
  124.     object tblEmployeeLastName: TStringField
  125.       FieldName = 'LastName'
  126.     end
  127.     object tblEmployeeFirstName: TStringField
  128.       FieldName = 'FirstName'
  129.       Size = 15
  130.     end
  131.     object tblEmployeePhoneExt: TStringField
  132.       FieldName = 'PhoneExt'
  133.       Size = 4
  134.     end
  135.     object tblEmployeeHireDate: TDateTimeField
  136.       FieldName = 'HireDate'
  137.     end
  138.     object tblEmployeeSalary: TFloatField
  139.       CustomConstraint = 'X > 4499'
  140.       ConstraintErrorMessage = 'Minimum Salary is $4,500.00'
  141.       FieldName = 'Salary'
  142.       currency = True
  143.     end
  144.   end
  145.   object dsEmployee: TDataSource
  146.     DataSet = tblEmployee
  147.     Left = 480
  148.     Top = 64
  149.   end
  150. end
  151.